home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / easynet.zip / DEMO.ZIP / ALIGN.FRM < prev    next >
Text File  |  1995-12-26  |  14KB  |  412 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAlign 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Node parameters"
  7.    ClientHeight    =   4425
  8.    ClientLeft      =   1230
  9.    ClientTop       =   2265
  10.    ClientWidth     =   6165
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4830
  22.    Left            =   1170
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4425
  27.    ScaleWidth      =   6165
  28.    Top             =   1920
  29.    Width           =   6285
  30.    Begin VB.TextBox Text1 
  31.       Appearance      =   0  'Flat
  32.       Height          =   345
  33.       Left            =   1530
  34.       TabIndex        =   0
  35.       Top             =   180
  36.       Width           =   3045
  37.    End
  38.    Begin VB.Frame Frame1 
  39.       Appearance      =   0  'Flat
  40.       BackColor       =   &H00C0C0C0&
  41.       Caption         =   "Node picture"
  42.       BeginProperty Font 
  43.          name            =   "MS Sans Serif"
  44.          charset         =   0
  45.          weight          =   400
  46.          size            =   9.75
  47.          underline       =   -1  'True
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H80000008&
  52.       Height          =   1515
  53.       Left            =   120
  54.       TabIndex        =   14
  55.       Top             =   960
  56.       Width           =   1665
  57.       Begin VB.OptionButton Option2 
  58.          Appearance      =   0  'Flat
  59.          BackColor       =   &H00C0C0C0&
  60.          Caption         =   "LAN"
  61.          BeginProperty Font 
  62.             name            =   "MS Sans Serif"
  63.             charset         =   0
  64.             weight          =   400
  65.             size            =   9.75
  66.             underline       =   0   'False
  67.             italic          =   0   'False
  68.             strikethrough   =   0   'False
  69.          EndProperty
  70.          ForeColor       =   &H80000008&
  71.          Height          =   315
  72.          Index           =   2
  73.          Left            =   240
  74.          TabIndex        =   16
  75.          TabStop         =   0   'False
  76.          Top             =   1020
  77.          Width           =   1365
  78.       End
  79.       Begin VB.OptionButton Option2 
  80.          Appearance      =   0  'Flat
  81.          BackColor       =   &H00C0C0C0&
  82.          Caption         =   "Mac"
  83.          BeginProperty Font 
  84.             name            =   "MS Sans Serif"
  85.             charset         =   0
  86.             weight          =   400
  87.             size            =   9.75
  88.             underline       =   0   'False
  89.             italic          =   0   'False
  90.             strikethrough   =   0   'False
  91.          EndProperty
  92.          ForeColor       =   &H80000008&
  93.          Height          =   315
  94.          Index           =   1
  95.          Left            =   240
  96.          TabIndex        =   15
  97.          TabStop         =   0   'False
  98.          Top             =   690
  99.          Width           =   1365
  100.       End
  101.       Begin VB.OptionButton Option2 
  102.          Appearance      =   0  'Flat
  103.          BackColor       =   &H00C0C0C0&
  104.          Caption         =   "PC"
  105.          BeginProperty Font 
  106.             name            =   "MS Sans Serif"
  107.             charset         =   0
  108.             weight          =   400
  109.             size            =   9.75
  110.             underline       =   0   'False
  111.             italic          =   0   'False
  112.             strikethrough   =   0   'False
  113.          EndProperty
  114.          ForeColor       =   &H80000008&
  115.          Height          =   315
  116.          Index           =   0
  117.          Left            =   240
  118.          TabIndex        =   1
  119.          Top             =   360
  120.          Width           =   1365
  121.       End
  122.    End
  123.    Begin VB.CommandButton Command2 
  124.       Appearance      =   0  'Flat
  125.       BackColor       =   &H80000005&
  126.       Caption         =   "&Cancel"
  127.       Height          =   405
  128.       Left            =   4980
  129.       TabIndex        =   5
  130.       Top             =   630
  131.       Width           =   955
  132.    End
  133.    Begin VB.CommandButton Command1 
  134.       Appearance      =   0  'Flat
  135.       BackColor       =   &H80000005&
  136.       Caption         =   "&Ok"
  137.       Default         =   -1  'True
  138.       Height          =   405
  139.       Left            =   4980
  140.       TabIndex        =   4
  141.       Top             =   210
  142.       Width           =   955
  143.    End
  144.    Begin VB.Frame Frame2 
  145.       Appearance      =   0  'Flat
  146.       BackColor       =   &H00C0C0C0&
  147.       Caption         =   "Text alignment"
  148.       BeginProperty Font 
  149.          name            =   "MS Sans Serif"
  150.          charset         =   0
  151.          weight          =   400
  152.          size            =   9.75
  153.          underline       =   -1  'True
  154.          italic          =   0   'False
  155.          strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   &H80000008&
  158.       Height          =   3285
  159.       Left            =   2100
  160.       TabIndex        =   2
  161.       Top             =   960
  162.       Width           =   2475
  163.       Begin VB.OptionButton Option1 
  164.          Appearance      =   0  'Flat
  165.          BackColor       =   &H00C0C0C0&
  166.          Caption         =   "&0 - Left - TOP"
  167.          BeginProperty Font 
  168.             name            =   "MS Sans Serif"
  169.             charset         =   0
  170.             weight          =   400
  171.             size            =   8.25
  172.             underline       =   0   'False
  173.             italic          =   0   'False
  174.             strikethrough   =   0   'False
  175.          EndProperty
  176.          ForeColor       =   &H80000008&
  177.          Height          =   225
  178.          Index           =   0
  179.          Left            =   240
  180.          TabIndex        =   3
  181.          Top             =   480
  182.          Width           =   1800
  183.       End
  184.       Begin VB.OptionButton Option1 
  185.          Appearance      =   0  'Flat
  186.          BackColor       =   &H00C0C0C0&
  187.          Caption         =   "&1 - Left - MIDDLE"
  188.          BeginProperty Font 
  189.             name            =   "MS Sans Serif"
  190.             charset         =   0
  191.             weight          =   400
  192.             size            =   8.25
  193.             underline       =   0   'False
  194.             italic          =   0   'False
  195.             strikethrough   =   0   'False
  196.          EndProperty
  197.          ForeColor       =   &H80000008&
  198.          Height          =   225
  199.          Index           =   1
  200.          Left            =   240
  201.          TabIndex        =   13
  202.          TabStop         =   0   'False
  203.          Top             =   780
  204.          Width           =   1800
  205.       End
  206.       Begin VB.OptionButton Option1 
  207.          Appearance      =   0  'Flat
  208.          BackColor       =   &H00C0C0C0&
  209.          Caption         =   "&2 - Left - BOTTOM"
  210.          BeginProperty Font 
  211.             name            =   "MS Sans Serif"
  212.             charset         =   0
  213.             weight          =   400
  214.             size            =   8.25
  215.             underline       =   0   'False
  216.             italic          =   0   'False
  217.             strikethrough   =   0   'False
  218.          EndProperty
  219.          ForeColor       =   &H80000008&
  220.          Height          =   225
  221.          Index           =   2
  222.          Left            =   240
  223.          TabIndex        =   12
  224.          TabStop         =   0   'False
  225.          Top             =   1080
  226.          Width           =   1800
  227.       End
  228.       Begin VB.OptionButton Option1 
  229.          Appearance      =   0  'Flat
  230.          BackColor       =   &H00C0C0C0&
  231.          Caption         =   "&3 - Right - TOP"
  232.          BeginProperty Font 
  233.             name            =   "MS Sans Serif"
  234.             charset         =   0
  235.             weight          =   400
  236.             size            =   8.25
  237.             underline       =   0   'False
  238.             italic          =   0   'False
  239.             strikethrough   =   0   'False
  240.          EndProperty
  241.          ForeColor       =   &H80000008&
  242.          Height          =   225
  243.          Index           =   3
  244.          Left            =   240
  245.          TabIndex        =   11
  246.          TabStop         =   0   'False
  247.          Top             =   1380
  248.          Width           =   1800
  249.       End
  250.       Begin VB.OptionButton Option1 
  251.          Appearance      =   0  'Flat
  252.          BackColor       =   &H00C0C0C0&
  253.          Caption         =   "&4 - Right - MIDDLE"
  254.          BeginProperty Font 
  255.             name            =   "MS Sans Serif"
  256.             charset         =   0
  257.             weight          =   400
  258.             size            =   8.25
  259.             underline       =   0   'False
  260.             italic          =   0   'False
  261.             strikethrough   =   0   'False
  262.          EndProperty
  263.          ForeColor       =   &H80000008&
  264.          Height          =   225
  265.          Index           =   4
  266.          Left            =   240
  267.          TabIndex        =   10
  268.          TabStop         =   0   'False
  269.          Top             =   1680
  270.          Width           =   1800
  271.       End
  272.       Begin VB.OptionButton Option1 
  273.          Appearance      =   0  'Flat
  274.          BackColor       =   &H00C0C0C0&
  275.          Caption         =   "&5 - Right - BOTTOM"
  276.          BeginProperty Font 
  277.             name            =   "MS Sans Serif"
  278.             charset         =   0
  279.             weight          =   400
  280.             size            =   8.25
  281.             underline       =   0   'False
  282.             italic          =   0   'False
  283.             strikethrough   =   0   'False
  284.          EndProperty
  285.          ForeColor       =   &H80000008&
  286.          Height          =   225
  287.          Index           =   5
  288.          Left            =   240
  289.          TabIndex        =   9
  290.          TabStop         =   0   'False
  291.          Top             =   1980
  292.          Width           =   1800
  293.       End
  294.       Begin VB.OptionButton Option1 
  295.          Appearance      =   0  'Flat
  296.          BackColor       =   &H00C0C0C0&
  297.          Caption         =   "&6 - Center - TOP"
  298.          BeginProperty Font 
  299.             name            =   "MS Sans Serif"
  300.             charset         =   0
  301.             weight          =   400
  302.             size            =   8.25
  303.             underline       =   0   'False
  304.             italic          =   0   'False
  305.             strikethrough   =   0   'False
  306.          EndProperty
  307.          ForeColor       =   &H80000008&
  308.          Height          =   225
  309.          Index           =   6
  310.          Left            =   240
  311.          TabIndex        =   8
  312.          TabStop         =   0   'False
  313.          Top             =   2250
  314.          Width           =   1800
  315.       End
  316.       Begin VB.OptionButton Option1 
  317.          Appearance      =   0  'Flat
  318.          BackColor       =   &H00C0C0C0&
  319.          Caption         =   "&7 - Center - MIDDLE"
  320.          BeginProperty Font 
  321.             name            =   "MS Sans Serif"
  322.             charset         =   0
  323.             weight          =   400
  324.             size            =   8.25
  325.             underline       =   0   'False
  326.             italic          =   0   'False
  327.             strikethrough   =   0   'False
  328.          EndProperty
  329.          ForeColor       =   &H80000008&
  330.          Height          =   225
  331.          Index           =   7
  332.          Left            =   240
  333.          TabIndex        =   7
  334.          TabStop         =   0   'False
  335.          Top             =   2550
  336.          Width           =   1800
  337.       End
  338.       Begin VB.OptionButton Option1 
  339.          Appearance      =   0  'Flat
  340.          BackColor       =   &H00C0C0C0&
  341.          Caption         =   "&8 - Center - BOTTOM"
  342.          BeginProperty Font 
  343.             name            =   "MS Sans Serif"
  344.             charset         =   0
  345.             weight          =   400
  346.             size            =   8.25
  347.             underline       =   0   'False
  348.             italic          =   0   'False
  349.             strikethrough   =   0   'False
  350.          EndProperty
  351.          ForeColor       =   &H80000008&
  352.          Height          =   225
  353.          Index           =   8
  354.          Left            =   240
  355.          TabIndex        =   6
  356.          TabStop         =   0   'False
  357.          Top             =   2850
  358.          Width           =   1800
  359.       End
  360.    End
  361.    Begin VB.Label Label1 
  362.       Appearance      =   0  'Flat
  363.       BackColor       =   &H00C0C0C0&
  364.       Caption         =   "Node text:"
  365.       BeginProperty Font 
  366.          name            =   "MS Sans Serif"
  367.          charset         =   0
  368.          weight          =   400
  369.          size            =   9.75
  370.          underline       =   -1  'True
  371.          italic          =   0   'False
  372.          strikethrough   =   0   'False
  373.       EndProperty
  374.       ForeColor       =   &H80000008&
  375.       Height          =   285
  376.       Left            =   210
  377.       TabIndex        =   17
  378.       Top             =   240
  379.       Width           =   1125
  380.    End
  381. End
  382. Attribute VB_Name = "frmAlign"
  383. Attribute VB_Creatable = False
  384. Attribute VB_Exposed = False
  385. Option Explicit
  386.  
  387. Private Sub Command1_Click()
  388.   Legend = Text1.Text
  389.   Ok = True
  390.   Unload Me
  391. End Sub
  392.  
  393. Private Sub Command2_Click()
  394.   Unload Me
  395.   Ok = False
  396. End Sub
  397.  
  398. Private Sub Form_Load()
  399.   Text1.Text = Legend
  400.   option2(Picnum).Value = True
  401.   option1(AlignMent).Value = True
  402. End Sub
  403.  
  404. Private Sub Option1_Click(Index As Integer)
  405.   AlignMent = Index
  406. End Sub
  407.  
  408. Private Sub Option2_Click(Index As Integer)
  409.   Picnum = Index
  410. End Sub
  411.  
  412.